home *** CD-ROM | disk | FTP | other *** search
/ Totally AMOS / Totally AMOS - Issue 1 (1991-11)(Tucker, Len - Tucker, Anne).adf / source_progs / show_faces.AMOS / show_faces.amosSourceCode
AMOS Source Code  |  1991-09-17  |  2KB  |  77 lines
  1. Rem Piccy shower by Paul Townsend of Technical Fred Software 
  2. Rem Rem Written for Totally Amos 
  3. Rem This program definatley needs a bit of work doing to it  
  4. Rem to make it do something useful 
  5. Rem If you do manage to do anything with it, please mention where  
  6. Rem you got the original idea from 
  7. Rem At the moment it displays all the members of Technical Fred Software 
  8. Rem if you click with the mouse on a face it zooms it up to full screen size 
  9. Rem for a few seconds and then returns to the main screen
  10. Rem Press SPACE to exit from the main screen 
  11. Global Q
  12. Dim POSX(5),POSY(55),A$(5)
  13. For F=0 To 5
  14.    Read A$(F),POSX(F),POSY(F)
  15.    A$="empty:"+A$(F)+".abk"
  16.    Load A$,10
  17.    Unpack 10 To F
  18.    Erase 10
  19. Next F
  20. Data "paul",35,100
  21. Data "alison",120,210
  22. Data "andrew",225,100
  23. Data "peter",130,100
  24. Data "darren",30,210
  25. Data "martin",230,210
  26. Screen Open 6,320,256,16,Lowres
  27. Flash Off 
  28. Curs Off 
  29. Cls 0
  30. Get Palette 0
  31. Zoom 0,0,0,320,256 To 6,0,0,100,100
  32. Wait Vbl 
  33. Zoom 3,0,0,320,256 To 6,100,0,200,100
  34. Wait Vbl 
  35. Zoom 2,0,0,320,256 To 6,200,0,300,100
  36. Wait Vbl 
  37. Zoom 4,0,0,320,256 To 6,0,110,100,210
  38. Wait Vbl 
  39. Zoom 1,0,0,320,256 To 6,100,110,200,210
  40. Wait Vbl 
  41. Zoom 5,0,0,320,256 To 6,200,110,300,210
  42. Wait Vbl 
  43. Ink 0
  44. Bar 0,198 To 320,256
  45. Wait Vbl 
  46. Bar 0,90 To 320,100
  47. For F=0 To 5
  48.    Text POSX(F),POSY(F),A$(F)
  49. Next F
  50. Locate 0,27
  51. Centre("Technical Fred Software")
  52. Locate 0,29
  53. Centre("Click Mouse on a piccy for close up")
  54. Reserve Zone 6
  55. Set Zone 1,0,0 To 100,100 : Rem PT 
  56. Set Zone 4,100,0 To 200,100 : Rem PW 
  57. Set Zone 3,200,0 To 300,100 : Rem AL   
  58. Set Zone 5,0,110 To 100,210 : Rem DE 
  59. Set Zone 2,100,110 To 200,210 : Rem AK 
  60. Set Zone 6,200,110 To 300,210 : Rem AH 
  61. Do 
  62.    Q=Mouse Zone
  63.    TEST=Mouse Key
  64.    If(Q<>0) and(TEST) Then Screen To Front Q-1 : Screen Q-1 : Locate 0,0 : INFO : Wait 200 : Screen To Front 6 : Screen 6
  65.    Exit If Inkey$=" "
  66. Loop 
  67. Fade 10 : Wait 10*15
  68. Edit 
  69. Procedure INFO
  70.    If Q=1 Then A$="Paul Townsend - Programmer"
  71.    If Q=2 Then A$="Alison Kinsey - Language Consultant"
  72.    If Q=3 Then A$="Andrew Loheide - Data Entry and Brew Boy"
  73.    If Q=4 Then A$="Peter Winnard - Audio Sampler and                      Programmer               "
  74.    If Q=5 Then A$="Darren Eckersley - Programmer"
  75.    If Q=6 Then A$="Martin Heston - Graphics Artist"
  76.    Print A$
  77. End Proc